home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00124_Verbetes- vaiTipoVerbete.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  382 b   |  15 lines
  1. on mouseUp me
  2.   puppetSound 2,"Warp1"
  3.   set spr = the  spriteNum of me
  4.   set x = the mouseH - the locH of sprite spr
  5.   set x = 3 * x / (the width of sprite spr + 1)
  6.   global gAstroAtual, gEquipeAtual, gHeroiAtual
  7.   sendAllSprites(#cleanSprite)
  8.   if x = 0 then
  9.     vaiVerbete gHeroiAtual
  10.   else if x = 1 then
  11.     vaiVerbete gEquipeAtual
  12.   else
  13.     vaiVerbete gAstroAtual
  14.   end if
  15. end